From 1d6ea13a8ddadd8a1de6d386ccc3e58624bbc6ab Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 2 May 2004 15:36:45 +0000 Subject: [PATCH] (compilation-start): In the no-async-subprocesses branch, call sit-for to give redisplay a chance to show the updated process status in the mode line. --- lisp/progmodes/compile.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index d31a93311b5..376136e33ae 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -944,6 +944,7 @@ Returns the compilation buffer created." ;; Fake modeline display as if `start-process' were run. (setq mode-line-process ":run") (force-mode-line-update) + (sit-for 0) ; Force redisplay (let ((status (call-process shell-file-name nil outbuf nil "-c" command))) (cond ((numberp status) -- 2.30.2